(set! geometry-lattice (make lattice (size 16 16 no-size)))


(set! geometry (list
                (make block (center 0 -6) (size 16 4 infinity)
                      (material (make medium (epsilon 3.4)
		      (D-conductivity (/ (* 2 pi 0.42 0.101) 3.4)))))

                (make block (center -4.0 -1) (size 1 6 infinity)
                      (material (make dielectric (epsilon 12))))
		(make block (center -2.0 -1) (size 1 6 infinity)
                      (material (make dielectric (epsilon 12))))
		(make block (center 0.0 -1) (size 1 6 infinity)
                      (material (make dielectric (epsilon 12))))
		(make block (center 2.0 -1) (size 1 6 infinity)
                      (material (make dielectric (epsilon 12))))
		(make block (center 4.0 -1) (size 1 6 infinity)
                      (material (make dielectric (epsilon 12))))

		(make sphere (center -4.0 2) (radius 2)
                      (material (make dielectric (epsilon 12))))
		(make sphere (center -2.0 2) (radius 2)
                      (material (make dielectric (epsilon 12))))
		(make sphere (center 0.0 2) (radius 2)
                      (material (make dielectric (epsilon 12))))
		(make sphere (center 2.0 2) (radius 2)
                      (material (make dielectric (epsilon 12))))
		(make sphere (center 4.0 2) (radius 2)
                      (material (make dielectric (epsilon 12))))))

(set! pml-layers (list (make pml (thickness 1.0))))
(set! resolution 10)

(set! sources (list
               (make source
                 (src (make continuous-src
                        (wavelength (* 2 (sqrt 12))) (width 20)))
                 (component Ez)
                 (center -7 5.5) (size 0 1))))

(run-until 200
           (at-beginning output-epsilon)
           (to-appended "ez" (at-every 0.6 output-efield-z)))



